home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / AppleScript / Additions / GTQ Library 1.2 / Sample Scripts / MinFontSize < prev    next >
Encoding:
Text File  |  1994-05-03  |  253 b   |  10 lines  |  [TEXT/ToyS]
  1. set theFont to (choose from list (list fonts))
  2.  
  3. set i to 0
  4. set res to false
  5. repeat while not res
  6.     set i to i + 1
  7.     set res to (does font exist theFont of size i)
  8. end repeat
  9.  
  10. display dialog "That smallest size you can use " & theFont & " in is " & i & "."